home *** CD-ROM | disk | FTP | other *** search
/ Immoral Angel 1 / Immoral Angel 1.iso / pc / program / play.dxr / 00036_checkPlay.ls < prev    next >
Encoding:
Text File  |  1997-07-11  |  423 b   |  17 lines
  1. on mouseUp
  2.   global playnum, selectedvideonum, status, cursorpointer, cursorwait
  3.   if (status = "about") or (status = "exitAlart") or (status = "helpMenu") or (status = "bomb") then
  4.     exit
  5.   end if
  6.   eracemenudownbutton()
  7.   updateStage()
  8.   cursor(cursorwait)
  9.   set selectedvideonum to string(playnum)
  10.   zoomBox(7, 4, 1)
  11.   closeqt()
  12.   puppetSprite(15, 0)
  13.   updateStage()
  14.   go(selectedvideonum)
  15.   cursor(cursorpointer)
  16. end
  17.